Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/adialr/telelist.frm

Text File | 1995-05-08 | 16KB | 518 lines

VERSION 2.00
Begin Form Telelist
   BackColor       =   &H00C0C000&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "ADIALER"
   ClientHeight    =   4005
   ClientLeft      =   3120
   ClientTop       =   2325
   ClientWidth     =   5055
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   9.75
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   ForeColor       =   &H00C0C000&
   Height          =   4695
   Icon            =   TELELIST.FRX:0000
   Left            =   3060
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   4005
   ScaleWidth      =   5055
   Top             =   1695
   Width           =   5175
   Begin CommandButton QuitBut
      Caption         =   "Quit"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   405
      Left            =   3375
      TabIndex        =   7
      Top             =   3510
      Width           =   930
   End
   Begin CommandButton DelNameBut
      Caption         =   "Delete Name"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   450
      Left            =   1395
      TabIndex        =   6
      Top             =   3375
      Width           =   1455
   End
   Begin CommandButton ReDialBut
      Caption         =   "ReDial"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   465
      Left            =   135
      TabIndex        =   12
      Top             =   3375
      Width           =   1140
   End
   Begin CommandButton TimeBut
      BackColor       =   &H00808000&
      Caption         =   "Current Time"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   420
      Left            =   3105
      TabIndex        =   8
      Top             =   3015
      Width           =   1725
   End
   Begin CommandButton AddNameBut
      Caption         =   "Add Name"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   450
      Left            =   1395
      TabIndex        =   5
      Top             =   2835
      Width           =   1425
   End
   Begin CommandButton DialBut
      BackColor       =   &H00FFFFFF&
      Caption         =   "Dial"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   450
      Left            =   135
      TabIndex        =   4
      Top             =   2835
      Width           =   1155
   End
   Begin Frame Frame1
      BackColor       =   &H00E0FFFF&
      Height          =   915
      Left            =   3060
      TabIndex        =   9
      Top             =   2070
      Width           =   1905
      Begin CheckBox PrefixCBox
         BackColor       =   &H00E0FFFF&
         Caption         =   "Use Prefix"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FF0000&
         Height          =   330
         Left            =   315
         TabIndex        =   3
         Top             =   495
         Width           =   1275
      End
      Begin TextBox PrefixTxtBox
         BackColor       =   &H00FFFFFF&
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00808080&
         Height          =   360
         Left            =   1035
         TabIndex        =   2
         Top             =   135
         Width           =   690
      End
      Begin Label Label2
         BackColor       =   &H00E0FFFF&
         Caption         =   "Prefix :"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FF0000&
         Height          =   285
         Left            =   180
         TabIndex        =   10
         Top             =   180
         Width           =   690
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00E0FFFF&
      Caption         =   "Enter Number to Call"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000FF&
      Height          =   690
      Left            =   90
      TabIndex        =   11
      Top             =   2070
      Width           =   2985
      Begin TextBox EnterNumTxtBox
         Height          =   330
         Left            =   180
         TabIndex        =   1
         Top             =   270
         Width           =   2445
      End
   End
   Begin ListBox TeleListBox
      BackColor       =   &H00E0FFFF&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1950
      Left            =   90
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   135
      Width           =   4875
   End
   Begin Menu ConfigMen
      Caption         =   "Configure"
      Begin Menu ComPortMen
         Caption         =   "Com Port"
         Begin Menu Com1Men
            Caption         =   "Com 1"
         End
         Begin Menu Com2Men
            Caption         =   "Com 2"
         End
         Begin Menu Com3Men
            Caption         =   "Com 3"
         End
         Begin Menu Com4Men
            Caption         =   "Com 4"
         End
      End
   End
End
Dim ComMenChk As Integer

Sub AddNameBut_Click ()
    NameIn.Show
End Sub

Sub Check1_Click ()
'To avoid dialog box on startup check for ComNo$ which will not be prensent at startup
    If Left$(ComNo$, 3) = "Com" Then
        If MsgBox("Make this setting the default?", 292) = 7 Then
        Exit Sub
        End If
    End If
'Write Prefix data to ADIALER.INI to make it default
    If PrefixCBox.Value = 1 Then
        lpstring$ = "On"
    ElseIf PrefixCBox.Value = 0 Then
        lpstring$ = "Off"
    End If
    lpAppName$ = "Prefix"
    lpFileName$ = "ADIALER.INI"
    lpKeyName$ = "On/Off"
    WritePreIndex% = WritePrivateProfileString(lpAppName$, lpKeyName$, lpstring$, lpFileName$)

End Sub

Sub Com1Men_Click ()
 'Set the check on menus
    ComNo$ = "Com1"
    Com1Men.Checked = -1
    Com2Men.Checked = 0
    Com3Men.Checked = 0